10 REM AUDIO IN
11 REM (W)1990 BY T.BAADE
12 REM (X)2001
13 REM EMAIL:
14 REM TORSTEN@SPORT-MOELLER.DE
15 REM ------------------------
20 POKE 53280,6:POKE 53281,6:REM COLOR
30 POKE 788,52:REM STOP-OFF
40 POKE 650,128
50 POKE53370,0:REM SCPU -> 1 MHZ
60 PRINT"[147][158]                 [193][213][196][201][207] IN               ";
70 PRINT"         (W)1990  BY [212]ORSTEN [194]AADE      "
100 PRINT "_ - 0     [214]OLUME                 : 15  "
110 PRINT "E         [198]ADE [201]N           [210]ATE : 200"
120 PRINT "A         [198]ADE [207]UT          [210]ATE : 200"
130 PRINT "T         [212]REMOLO [197]FFECT    [210]ATE : 3  "
140 PRINT"P         [198]ILTER     ON/[150]OFF[146]"
150 PRINT "@         [200]IGH [208]ASS  ON/[150]OFF"
160 PRINT "*         [194]AND [208]ASS  ON/[150]OFF"
170 PRINT "^         [204]OW  [208]ASS  ON/[150]OFF"
180 PRINT"+   -     [195]UT-[207]FF-[198]REQUENCY      : 140"
190 PRINT"F1[146]-F7[146]     [195]ERTAIN [195]UT-[207]FFS
200 [153]"R         (null)ESONANCE  ON/DEFOFF"
210 [153]"\         (null)AH - (null)AH         (null)ATE : 30
220 PRINT"HOME[146]      [215]OI - [215]OI         [210]ATE : 30
230 [153]"DELWAIT       (null)AH - (null)OI         (null)ATE : 30
235 PRINT"[155]      [195]HANGE [210]ATE WITH [195]=[146] + [203]EY     "
240 SI=54272:LA=SI+24
250 POKELA,15:A=15
260 RE=200:RA=200:RT=3:GF=140:RH=30:RO=30:RI=30
270 DIM A(10):DATA 15,1,2,3,4,5,7,9,11,13,0
280 FORL=0TO10:READ A(L):NEXT
290 POKE SI+21,7:POKE SI+22,140:POKESI+23,0
298 ::::::::::::::::::::::::::::::::::::
299 POKE 198,0:WAIT 198,1
300 PRINT""TAB(34)"   [157][157][157]"A""
310 GET A$:IF A$=""THEN 310
315 :::::::::::::::::::::::::::::::::::
320 IF A$="E"GOTO 400
323 IF A$="[177]"GOTO 491
325 IF A$="A"GOTO 500
328 IF A$="[176]"GOTO 591
330 IF A$="T"GOTO 600
333 IF A$="[163]"GOTO 691
335 IF A$="P"GOTO 700
337 IF A$="R"GOTO 750
340 IF A$="@"GOTO 800
350 IF A$="*"GOTO 850
351 IF A$="[135]"GOTO 950
352 IF A$="[136]"GOTO 950
355 IF A$="^"GOTO 900
356 IF A$="+"GOTO 950
357 IF A$="-"GOTO 950
358 IF A$="[133]"GOTO 950
359 IF A$="[134]"GOTO 950
360 IF A$="[168]"GOTO 1000
362 IF A$="[147]"GOTO 1010
364 IF A$="[148]"GOTO 1020
366 IF A$=CHR$(13)THEN RUN
370 IF A$="\"THEN 1100
373 IF A$=""THEN 1300
375 IF A$=""THEN 1500
380 IF A$=CHR$(3)THEN RA=80:B$="S":GOTO500
389 :::::::::::::::::::::::::::::::::::
390 IF A$="_"THEN A$="10"
395 POKE LA,A(VAL(A$))ORFM
396 A=A(VAL(A$))
399 GOTO 300
400 REM EINBLENDEN
410 PRINT""TAB(10)"[150][198]ADE [201]N          "
420 FOR L=A TO 15
430 POKE LA,LORFM
435 PRINT""TAB(34)"   [157][157][157]"L""
440 FORL1=0TORE
450 NEXT
460 GET A$:IF A$<>""THENA=L:GOTO 480
465 NEXT L
470 A=15
480 PRINT""TAB(10)"[198]ADE [201]N          "
490 GOTO 300
491 PRINT""TAB(33);
492 INPUT RE
493 PRINT"":PRINT""TAB(33)":"
494 GOTO 300
500 REM FADE OUT
510 PRINT""TAB(10)"[150][198]ADE [207]UT         "
520 FOR L=A TO 0 STEP-1
530 POKE LA,LORFM
535 PRINT""TAB(34)"   [157][157][157]"L""
540 FORL1=0TORA
550 NEXT
560 GET A$:IF A$<>""THENA=L:GOTO 580
565 NEXT L
570 A=0
580 PRINT""TAB(10)"[198]ADE [207]UT         "
585 IF B$="S"THENPOKE53371,0:PRINT"[147][194]YE...":POKE788,49:END
590 GOTO300
591 PRINT""TAB(33);
592 INPUT RA
593 PRINT"":PRINT""TAB(33)":"
594 GOTO 300
600 REM TREMOLO
610 PRINT""TAB(10)"[150][212]REMOLO [197]FFECT   "
620 FORL=15TO3STEP-1
630 POKELA,LORFM:FORL1=0TORT:NEXTL1
640 NEXTL
650 FORL=3TO15:POKELA,LORFM
660 FORL1=0TORT:NEXTL1
670 NEXTL
680 GETA$:IFA$=""THEN620
685 PRINT""TAB(10)"[212]REMOLO [197]FFECT   "
690 A=15:GOTO300
691 PRINT""TAB(33);
692 INPUT RT
693 PRINT"":PRINT""TAB(33)":"
694 GOTO 300
700 REM FILTER EIN/AUS
705 FF=1-FF
710 B$=" ON/[150]OFF"
715 IF FF THEN B$="[153] ON[146]/OFF"
720 PRINT""TAB(20)B$
725 RS=RSAND240
730 RS=RSORFF*8
735 POKE LA-1,RS
740 GOTO 300
750 REM RESONANZ EIN/AUS
755 FR=1-FR
760 B$=" ON/[150]OFF"
765 IF FR THEN B$="[153] ON[146]/OFF"
770 PRINT""TAB(20)B$
775 RS=RSAND8
780 RS=RSORFR*240
785 POKE LA-1,RS
790 GOTO 300
800 REM HOCHPASS EIN/AUS
805 FH=1-FH
810 B$=" ON/[150]OFF"
815 IF FH THEN B$="[153] ON[146]/OFF"
820 PRINT""TAB(20)B$
825 FM=FMAND48
830 FM=FMORFH*64
835 POKE LA,FMORA
840 GOTO 300
850 REM BANDPASS EIN/AUS
855 FB=1-FB
860 B$=" ON/[150]OFF"
865 IF FB THEN B$="[153] ON[146]/OFF"
870 PRINT""TAB(20)B$
875 FM=FMAND80
880 FM=FMORFB*32
885 POKE LA,FMORA
890 GOTO 300
900 REM TIEFPASS EIN/AUS
905 FT=1-FT
910 B$=" ON/[150]OFF"
915 IF FT THEN B$="[153] ON[146]/OFF"
920 PRINT""TAB(20)B$
925 FM=FMAND96
930 FM=FMORFT*16
935 POKE LA,FMORA
940 GOTO 300
950 REM GRENZFREQUENZ
960 IFA$="+"THENGF=GF+2:IFGF>255THENGF=254
961 IFA$="[133]"THENGF=50
962 IFA$="[134]"THENGF=90
963 IFA$="[135]"THENGF=140
964 IFA$="[136]"THENGF=200
965 IFA$="-"THENGF=GF-2:IFGF<0THENGF=0
966 PRINT""TAB(34)"    [157][157][157][157]"GF""
970 POKESI+22,GF
999 GOTO 300
1000 PRINT""TAB(33);
1002 INPUT RH
1004 PRINT"":PRINT""TAB(33)":"
1006 GOTO 300
1010 PRINT""TAB(33);
1012 INPUT RO
1014 PRINT"":PRINT""TAB(33)":"
1016 GOTO 300
1020 PRINT""TAB(33);
1022 INPUT RI
1024 PRINT"":PRINT""TAB(33)":"
1026 GOTO 300
1100 REM WOI - WOI
1110 PRINTTAB(10)"[150][215]AH - [215]AH"
1120 FORL=50TO200STEP5
1130 POKE SI+22,L
1140 FORL1=0TORH:NEXTL1
1150 GETA$:IFA$<>""THEN1190
1160 NEXT
1180 GOTO 1120
1190 PRINTTAB(10)"[215]AH - [215]AH":POKESI+22,GF:GOTO300
1300 REM WAH - WAH
1310 PRINTTAB(10)"[150][215]OI - [215]OI"
1320 FORL=200TO50STEP-5
1330 POKE SI+22,L
1340 FORL1=0TORO:NEXTL1
1350 GETA$:IFA$<>""THEN1390
1360 NEXT
1380 GOTO 1320
1390 PRINTTAB(10)"[215]OI - [215]OI":POKESI+22,GF:GOTO300
1500 REM WAH - WOI
1510 PRINTTAB(10)"[150][215]AH - [215]OI"
1520 FORL=50TO200STEP5
1530 POKESI+22,L
1540 FORL1=0TORI:NEXTL1,L
1550 GET A$:IFA$<>""THEN1700
1560 FORL=200TO50STEP-5
1570 POKESI+22,L:FORL1=0TORI:NEXTL1,L
1580 GETA$:IFA$<>""THEN1700
1590 GOTO 1520
1700 POKE SI+22,GF
1710 PRINTTAB(10)"[215]AH - [215]OI"
1720 GOTO 300